home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / util / cdity / ModeProSrc.lha / Install / InstallModePro < prev    next >
Text File  |  1999-02-28  |  26KB  |  555 lines
  1. ; Install script for ModePro
  2.  
  3. (set path_wbstartup       ( expandpath "Sys:WBStartup") )
  4. (set path_commodities     ( expandpath "Sys:Tools/Commodities") )
  5. (set path_prefs           ( expandpath "Sys:Prefs") )
  6. (set path_modepro         path_commodities)
  7.  
  8. ( set ModePro "ModePro")
  9. ( set ModeProPrefs "ModeProPrefs" )
  10.  
  11. ( set file_modepro_src       "ModePro")
  12. ( set file_modeproprefs_src  "ModeProPrefs" )
  13. ( set file_screentab         (tackon path_wbstartup "ScreenTab"))
  14.  
  15.  
  16. (set catalog_1   "ÃeÓtina")
  17. (set catalog_2   "dansk")
  18. (set catalog_3   "deutsch")
  19. (set catalog_4   "español")
  20. (set catalog_5   "français")
  21. (set catalog_6   "Hrvatski") 
  22. (set catalog_7   "íslenska")
  23. (set catalog_8   "italiano") 
  24. (set catalog_9   "magyar") 
  25. (set catalog_10   "norsk")
  26. (set catalog_11  "polski")
  27. (set catalog_12  "português-brasil")
  28. (set catalog_13  "russian")
  29. (set catalog_14  "srpski")
  30. (set catalog_15  "svenska") 
  31. (set catalog_16  "türkçe")
  32.  
  33. (set catalogs 16)
  34.  
  35. ;#######################################################################
  36. ; If you want to translate this installer script, simply 
  37. ; translate the file "english.strings", then send me the 
  38. ; new file with the native language name as the file title.
  39. ;
  40. ; You don't need to do anything to the file other than 
  41. ; translate it and rename it.  I have a script compiler
  42. ; that handles all the logic needed (if (= language 'your language') ... 
  43. ;########################################################################
  44.  
  45. (set lang_1 "english")
  46. (set lang_2 "magyar")
  47. (set lang_3 "russian")
  48. (set lang_4 "español")
  49. (set lang_5 "hrvatski")
  50. (set lang_6 "italiano")
  51. (set lang (askchoice (prompt "Select a language.\nElija un idioma.\nÎíåaêòèðña, òéaåçñä þæúé.\nKérlek válassz egy nyelvet.")
  52.                          (help   "Select a language.\nElija un idioma.\nÎíåaêòèðña, òéaåçñä þæúé.\nKérlek válassz egy nyelvet!")
  53.                          (choices  lang_1 lang_2 lang_3 lang_4 lang_5 lang_6)
  54.                          (default 0)
  55. )         )
  56. (set @language (select lang  lang_1 lang_2 lang_3 lang_4 lang_5 lang_6))
  57. ;==============================================================================
  58. ;
  59. ; English
  60. ;
  61. ; english text by mrivers@gte.net
  62. ;
  63. ; Translate this string to!
  64. ; "Please select a language."
  65.  
  66.  
  67. ( set Yes "Yes")
  68. ( set No  "No")
  69.  
  70. (set startup_prompt       "When your computer boots up, how would you like ModePro started?")
  71. (set startup_choice0      "Never")
  72. (set startup_choice1      "Start from the User-Startup file")
  73. (set startup_choice2      "Start from the WBStartup Drawer")
  74. (set startup_help         "Selecting 'Never' will cause ModePro to not be started when the system boots.\n\nSelecting the 'Start from the User-Startup file' will add an entry in the the S:User-Startup file which will start ModePro.\n\nSelecting the 'Start from the WBStartup Drawer' put ModePro in the WBStartup drawer on Workbench.\n\nThe only difference in the latter two is that if you want to use ModePro to affect the Workbench screen, you must select 'Start from the User-Startup file'")
  75. (set startup_screentab    "\nYou appear to be running ScreenTab.\nModePro should not be started from the User-StartUp")
  76.  
  77. (set path_modepro_prompt  "Please select where you want to put ModePro.\n'%s' is the normal location")
  78. (set path_modepro_help    "This is the directory where the ModePro executable will be placed")
  79. (set path_mpprefs_prompt  "Please select where you want to put ModeProPrefs.\n'%s' is the normal location")
  80. (set path_mpprefs_help    "This is the directory where the ModeProPrefs executable will be placed")
  81.  
  82. ( set oldmodepro_prompt   "There appears to be another copy ModePro installed.\nDelete it?")
  83. ( set oldmodepro_help     "Another, unneeded copy of ModePro appears to be installed, deleting it is recommended")
  84. ( set oldmodepro_deleting "Deleting extra copy and .info file")
  85.  
  86. ( set tt_cxpopkey_prompt  "Enter the hotkey that pops up the preferences interface." )
  87. ( set tt_cxpri_prompt     "Enter the value of ModePro's commodity priority." )
  88. ( set tt_cxpopup_prompt   "Would you like ModePro to popup the interface each time it is started.")
  89. ( set tt_cx_help          "Please see the Commodities section of the Workbench manual for information." )
  90. ( set tt_wbpromote_prompt "Would you like to be able to promote the Workbench screen?\nI recommend that you select NO, promoting the WB can be dangerous!" )
  91. ( set tt_wbpromote_help   "Select NO\n.This option allows you to promote the WB screen, however, the OS may lockup depending on your set-up." )
  92.  
  93. (set installing_modepro       "Installing ModePro")
  94. (set installing_modeproprefs  "Installing ModeProPrefs")
  95. (set installing_catalogs      "Installing catalogs for the language %s")
  96.  
  97. (set usmodify_prompt      "The options you have chosen require the s:user-startup file to be modified." )
  98. (set usmodify_help        "If you don't do this part, ModePro may not work correctly" )
  99.  
  100. (set copycat_prompt       "ModePro has been translated into many languages.\nMany thanks go to the ATO for suppling most of the translations.")
  101. (set copycat_help         "You should only select those catalogs that you need.")
  102.  
  103. (set quickupdate_prompt   "You currently have ModePro installed.")
  104. (set quickupdate_choice0  "Quick Update")
  105. (set quickupdate_choice1  "Full Update")
  106. (set quickupdate_help     "Quick Update only updates the executables.\nFull Update, allows you to change the location and tooltypes of ModePro")
  107.  
  108. (if (= @language "magyar")
  109.   (
  110.     ;==============================================================================
  111.     ;
  112.     ; Magyar
  113.     ;
  114.     ; Magyar fordítás: Kovács "Smith" Péter - smit@mail.matav.hu
  115.     ;
  116.     ; Translate this string to!
  117.     ; "Kérlek válassz egy nyelvet!"
  118.     
  119.     
  120.     ( set Yes "Igen")
  121.     ( set No  "Nem")
  122.     
  123.     (set startup_prompt       "Boot-olásnál hogyan akarod indítani a ModePro-t?")
  124.     (set startup_choice0      "Sehogyan :)")
  125.     (set startup_choice1      "User-Startup állományból")
  126.     (set startup_choice2      "WBStartup fiókból")
  127.     (set startup_help         "Válaszd a 'Sehogyan'-t ha egyáltalán nem akarod a rendszer indításakor használni a ModePro-t.\n\nVálaszd a 'User-Startup állományból'-t, így a megfelelõ sorok beleíródnak a Te User-Startup állományodba, és onnét indul a ModePro.\n\nVálaszd a 'WBStartup fiókból'-t, és a ModePro bekerül a Te WBStartup fiókodba.\n\nHa a Workbench képernyõt is szeretnéd promot-olni, akkor mindenképpen a 'User-Startup állományból'-t válaszd!")
  128.     (set startup_screentab    "\nTe futtattad a ScreenTab-et.\nModePro-t nem kell a User-Startup állományból indítani.")
  129.     
  130.     (set path_modepro_prompt  "Kérlek válaszd ki a ModePro leendõ helyét.\nJelenleg: '%s'")
  131.     (set path_modepro_help    "Ebben a könyvtárban fog helyet foglalni a ModePro futtatható állomány.")
  132.     (set path_mpprefs_prompt  "Kérlek válaszd ki a ModeProPrefs leendõ helyét.\n'%s' logikus helynek tûnik...")
  133.     (set path_mpprefs_help    "Ebben a könyvtárban fog helyet foglalni a ModeProPrefs futtatható állomány.")
  134.     
  135.     ( set oldmodepro_prompt   "Az adott helyen van már egy másik ModePro telepítve.\nTörölni?")
  136.     ( set oldmodepro_help     "Másik, szükségtelen másolat van teleítve, ennek törlése ajánlott.")
  137.     ( set oldmodepro_deleting "A másolat és a hozzá tartozó .info állomány törlése")
  138.     
  139.     ( set tt_cxpopkey_prompt  "Add meg a billentyüzet-kombinációt, amivel gyorsan el akarod érni a beállításokat.")
  140.     ( set tt_cxpri_prompt     "Add meg a commodity prioritásának értékét.")
  141.     ( set tt_cxpopup_prompt   "Szeretnéd hogy indításkor a felhasználói felület is láthatóvá váljon?")
  142.     ( set tt_cx_help          "Kérlek nézd meg a 'Commodities' részt a Workbench kézikönyvben.")
  143.     ( set tt_wbpromote_prompt "Szeretnéd a Workbench képernyõt promotolni?\nAjánlom hogy válaszd a 'Nem'-et, a WB promotolása veszélyes!")
  144.     ( set tt_wbpromote_help   "Válaszd a 'Nem'-et.\nEz az opció megengedi a WB képernyõ promotolását, bár ez függ az OS beállításaitól is.")
  145.     
  146.     (set installing_modepro       "ModePro telepítés")
  147.     (set installing_modeproprefs  "ModeProPrefs telepítés")
  148.     (set installing_catalogs      "Catalog-ok teleítése %s nyelvhez")
  149.     
  150.     (set usmodify_prompt      "A választott lehetõségek alapján szükséges a User-Startup állomány módosítása.")
  151.     (set usmodify_help        "Ha kihagyod ezt a részt, akkor a ModePro nem fog hibátlanul mûködni!")
  152.     
  153.     (set copycat_prompt       "A ModePro le van fordítva sok nyelvre.\nKöszönet az ATO-nak a legtöbb fordításért.")
  154.     (set copycat_help         "Válaszd ki azokat a catalog-okat amelyekre szükséged van.")
  155.     
  156. ) )
  157. (if (= @language "russian")
  158.   (
  159.     ;==============================================================================
  160.     ;
  161.     ; Russian
  162.     ;
  163.     ; russian text by bigblack@neworder.spb.ru
  164.     ;
  165.     ; Translate this string to!
  166.     ; "Îíåaêòèðña, òéaåçñä þæúé."
  167.     
  168.     
  169.     ( set Yes "Ãa")
  170.     ( set No  "Ìäñ")
  171.     
  172.     (set startup_prompt       "Éaé æaîòðéañû ModePro îïç ðñaïñä ðçðñäëú?")
  173.     (set startup_choice0      "Ìä ìaãí")
  174.     (set startup_choice1      "Æaîòðñçñû çæ óaèêa User-Startup")
  175.     (set startup_choice2      "Æaîòðñçñû çæ éañaêíâa WBStartup")
  176.     (set startup_help         "Áúàíï 'Ìä ìaãí' íñéêýöçñ æaîòðé ModePro îïç ðñaïñä ðçðñäëú.\n\nÁúàíï 'Æaîòðñçñû çæ óaèêa User-Startup' ãíàaáçñ ðñïíöéò á óaèê S:User-Startup, éíñíïaþ æaîòðñçñ ModePro.\n\nÁúàíï 'Æaîòðñçñû çæ éañaêíâa WBStartup' îíëäðñçñ ModePro á éañaêíâ WBStartup Workbench-a.\n\nÏaæìçõa ëäåãò ãáòëþ îíðêäãìçëç ðîíðíàaëç á ñíë, öñí äðêç Áú ôíñçñä çðîíêûæíáañû ModePro ãêþ òîïaáêäìçþ üéïaìíë Workbench, ñí ìaãí òéaæañû 'Æaîòðñçñû çæ óaèêa User-Startup'")
  177.     (set startup_screentab    "\nÎíôíåä, Áú çðîíêûæòäñä ScreenTab.\nModePro ìä ëíåäñ àúñû æaîòùäì çæ óaèêa User-StartUp")
  178.     
  179.     (set path_modepro_prompt  "Òéaåçñä, éòãa îíëäðñçñû ModePro.\n'%s' - ðñaìãaïñìíä ïaðîíêíåäìçä")
  180.     (set path_modepro_help    "Üñí éañaêíâ, éòãa àòãäñ îíëäù½ì æaîòðéaäëúè óaèê ModePro")
  181.     (set path_mpprefs_prompt  "Òéaåçñä, éòãa îíëäðñçñû ModeProPrefs.\n'%s' - ðñaìãaïñìíä ïaðîíêíåäìçä")
  182.     (set path_mpprefs_help    "Üñí éañaêíâ, éòãa àòãäñ îíëäù½ì æaîòðéaäëúè óaèê ModeProPrefs")
  183.     
  184.     ( set oldmodepro_prompt   "Îíôíåä, ò Áað òåä îïíçìðñaêêçïíáaìa îïíâïaëëa ModePro.\nÒãaêçñû ä½?")
  185.     ( set oldmodepro_help     "Á Áaøäè ðçðñäëä ìaèãäìa ìäìòåìaþ éíîçþ ModePro; ä½ ïäéíëäìãòäñðþ òãaêçñû")
  186.     ( set oldmodepro_deleting "Òãaêäìçä éíîçç ç .info óaèêa")
  187.     
  188.     ( set tt_cxpopkey_prompt  "Òéaåçñä âíïþöòý éêaáçøò áúæíáa îïäãòðñaìíáíé." )
  189.     ( set tt_cxpri_prompt     "Òéaåçñä îïçíïçñäñ ðçðñäëìíâí ïaðøçïçñäêþ ModePro." )
  190.     ( set tt_cxpopup_prompt   "Ìäíàôíãçëí êç íñéïúáañû îïäãòðñaìíáéç ModePro îïç éaåãíë æaîòðéä?")
  191.     ( set tt_cx_help          "Íàïañçñäðû é íîçðaìçý Ðçðñäëìúô ïaðøçïçñäêäè á ïòéíáíãðñáä îí ïaàíñä ð Workbench æa îíãïíàìíðñþëç." )
  192.     ( set tt_wbpromote_prompt "Ìäíàôíãçëí êç éíïïäéñçïíáañû üéïaì Workbench?\nÞ ìä ïäéíëäìãòý üñíâí ãäêañû, ñaé éaé üñí ìäàäæíîaðìí!" )
  193.     ( set tt_wbpromote_help   "Áúàíï ÌÄÑ\n.Üña íîõçþ æaîïäñçñ éíïïäéñçïíáéò üéïaìa WB, ñaé éaé íì ëíåäñ àúñû æaù½êéìòñ OS." )
  194.     
  195.     (set installing_modepro       "Çìðñaêêþõçþ ModePro")
  196.     (set installing_modeproprefs  "Çìðñaêêþõçþ ModeProPrefs")
  197.     (set installing_catalogs      "Çìðñaêêþõçþ éañaêíâíá ãêþ þæúéa %s")
  198.     
  199.     (set usmodify_prompt      "Áúàïaììúä íîõçç ëíãçóçõçïòýñ óaèê s:user-startup." )
  200.     (set usmodify_help        "Äðêç üñíâí ìä ðãäêañû, ïaàíña ModePro àòãäñ ìäéíïïäéñìíè" )
  201.     
  202.     (set copycat_prompt       "ModePro îäïäáäã½ì ìa ëìíâçä þæúéç.\nÍâïíëìíä ðîaðçàí ATO æa îíããäïåéò àíêûøçìðñáa îäïäáíãíá.")
  203.     (set copycat_help         "Òéaåçñä ìäíàôíãçëúä Áaë éañaêíâç.")
  204.     
  205.     
  206. ) )
  207. (if (= @language "español")
  208.   (
  209.         ;==============================================================================
  210.         ; Spanish strings by Dámaso D. Estévez <amidde@arrakis.es>
  211.         ; 4.62 (26.2.99)
  212.         ;-------------------------------------------------------------
  213.     
  214.         ( set Yes "Sí")
  215.         ( set No  "No")
  216.     
  217.         (set startup_prompt   "¿Quiere ejecutar automáticamente ModePro al arrancar su equipo?")
  218.         (set startup_choice0  "No, no quiero ejecutarlo")
  219.         (set startup_choice1  "Sí, desde el fichero `user-startup'")
  220.         (set startup_choice2  "Sí, desde el cajón WBStartup")
  221.         (set startup_help   (cat "\nEligiendo 'No, no quiero ejecutarlo' hará que ModePro no se ejecute durante el arranque del sistema.\n\n" "Eligiendo 'Sí, desde el fichero user-startup' se añadirá una entrada en el fichero `s:user-startup' que se encargará de ejecutar ModePro.\n\n" "Seleccionando 'Sí, desde el cajón WBStartup', ModePro será copiado en el cajón WBStartup de su disco de arranque.\n\n" "La única diferencia entre las dos últimas opciones es que si quiere que ModePro pueda afectar a la pantalla del Workbench, deberá seleccionar 'Sí, desde el fichero user-startup'"))
  222.         (set startup_screentab "\nParece que está ejecutándose ScreenTab:\nModePro no debería ser ejecutado desde el fichero `user-startup'.")
  223.     
  224.         (set path_modepro_prompt  "Por favor, elija dónde desea instalar ModePro\n('%s' es el lugar normal)")
  225.         (set path_modepro_help    "\nEste es el directorio donde el ejecutable ModePro será instalado.")
  226.         (set path_mpprefs_prompt  "Por favor, elija dónde desea instalar ModeProPrefs'\n('%s' es el lugar normal)")
  227.         (set path_mpprefs_help    "\nEste es el directorio donde el ejecutable ModeProPrefs será instalado.")
  228.     
  229.         (set oldmodepro_prompt   "Parece que otra copia de ModePro está instalada.\n¿Desea borrarla?")
  230.         (set oldmodepro_help     "\nParece que una copia innecesaria de ModePro está instalada: se recomienda su borrado.")
  231.         (set oldmodepro_deleting "Borrando copia extra y fichero '.info'" )
  232.     
  233.         (set tt_cxpopkey_prompt    "Introduzca la combinación de teclas que invocará al programa de preferencias.")
  234.         (set tt_cxpri_prompt       "Introduzca el valor de la prioridad de ModePro como comodidad.")
  235.         (set tt_cxpopup_prompt     "¿Desea que ModePro muestre su interfaz cada vez que es puesto en marcha?")
  236.         (set tt_cx_help            "\nPor favor, consulte en el manual del Workbench ,la sección sobre 'Commodities'/'Comodidades' para más información.")
  237.         (set tt_wbpromote_prompt   "¿Desea ser capaz de promocionar la pantalla del Workbench?\nRecomiendo que elija la opción NO, pues promocionar dicha pantalla ¡puede ser peligroso!")
  238.         (set tt_wbpromote_help     "\nElija NO.\nEsta opción le permite promocionar la pantalla del Workbench... sin embargo, el S.O. podría bloquearse con algunas configuraciones.")
  239.     
  240.         (set installing_modepro       "Instalando ModePro")
  241.         (set installing_modeproprefs  "Instalando ModeProPrefs")
  242.         (set installing_catalogs      "Instalando catálogos para el idioma %s")
  243.     
  244.         (set usmodify_prompt  "Las opciones elegidas requieren que el fichero `s:user-startup' sea modificado.")
  245.         (set usmodify_help    "\nSi se salta este paso, ModePro podría no funcionar correctamente.")
  246.     
  247.         (set copycat_prompt   "ModePro ha sido traducido a varios idiomas.\nAgradezco a la ATO que me haya suministrado la mayoría de las traducciones.")
  248.         (set copycat_help     "\nDebe seleccionar sólo aquellos catálogos que necesite.")
  249.     
  250.         (set quickupdate_prompt   "Tiene instalado actualmente ModePro.")
  251.         (set quickupdate_choice0  "Actualización rápida")
  252.         (set quickupdate_choice1  "Actualización completa")
  253.         (set quickupdate_help     "\nLa actualización rápida sólo actualiza los ejecutables.\nLa actualización completa, le permite cambiar la localización y los tipos de herramientas de ModePro.")
  254.     
  255. ) )
  256. (if (= @language "hrvatski")
  257.   (
  258.     ;=============================================================
  259.     ; Hrvatski
  260.     ;-------------------------------------------------------------
  261.     
  262.     ( set Yes "Yes")
  263.     ( set No  "No")
  264.     
  265.     ( set startup_prompt            "Kako ¾elite pokretati ModePro?\nPritisni 'Pomoæ' za vi¹e informacija.")
  266.     ( set startup_choice0           "No")
  267.     ( set startup_choice2           "Pokreni ModePro iz User-Startup")
  268.     ( set startup_choice1           "Stavi ModePro u WBStartup imenik")
  269.     
  270.     ( set path_modepro_prompt      "Preporuæen imenik za ModePro.  Promjeni ga po volji." ) 
  271.     ( set path_mpprefs_prompt      "ModeProPrefs dopu¹ta prepravljanje ModePro-ove opcije unaprijeðenja.  Gdje ¾elite staviti editor postavki?\nOpæenito bi trebao biti u %s imeniku.")
  272.     
  273.     ( set tt_cxpopkey_prompt   "Upi¹i vruæu tipku koja æe aktivirati editor postavki." )
  274.     ( set tt_cxpri_prompt      "Upi¹ite vrijednost ModePro-ove va¾nosti rada." )  
  275.     ( set tt_cxpopup_prompt    "Da li ¾elite da se ModePro pojavi svaki put kada se pokrene.")
  276.     
  277.     ( set oldmodepro_prompt   "Izgleda da postoji druga kopija ModePro instalirana, da ju obri¹em?")
  278.     
  279.     ( set installing_modepro          "Instaliram ModePro...")
  280.     ( set installing_modeproprefs     "Instaliram ModeProPrefs...")
  281.     
  282.     ( set copycat_prompt   "ModePro podr¾ava a lokalizaciju.  Koje jezike ¾elite instalirati, neki katalozi nisu gotovi.")
  283.     
  284.     ( set usmodify_prompt     "Opcija koju ste izabrali zahtjeva promjene u datoteci s:user-startup." )
  285.     
  286.     
  287. ) )
  288. (if (= @language "italiano")
  289.   (
  290.     ;==============================================================================
  291.     ; Italiano strings :)
  292.     ;-------------------------------------------------------------
  293.     
  294.     ( set Yes "Si")
  295.     ( set No  "No")
  296.     
  297.     ( set startup_prompt               "Come vuoi che sia lanciato ModePro?\nPremi 'Aiuto' per altre informazioni")
  298.     ( set startup_choice1       "Avvia ModePro dalla Startup-Sequence")
  299.     ( set startup_choice2         "Metti ModePro nel cassetto WBStartup")
  300.     
  301.     ( set path_modepro_prompt     "Questo è il percorso suggerito per ModePro.\nSe vuoi puoi cambiarlo." ) 
  302.     ( set path_mpprefs_prompt      "ModeProPrefs ti permette di modificare i parametri di promozione di ModePro.\nDove vuoi mettere il programma di impostazioni?\nNormalmente dovrebbe essere il cassetto %s." )
  303.     
  304.     ( set tt_cxpopkey_prompt    "Immetti la hotkey che richiama il programma di impostazioni." )
  305.     ( set tt_cxpri_prompt       "Immetti il valore della priorità da assegnare alla commodity ModePro." )  
  306.     ( set tt_cxpopup_prompt     "Vuoi che ModePro visualizzi la sua interfaccia ogni volta che viene lanciato?")
  307.     
  308.     ( set oldmodepro_prompt   "Sembra che ci sia un'altra copia di ModePro installata. La cancello?")
  309.     
  310.     ( set installing_modepro        "Sto installando ModePro...")
  311.     ( set installing_modeproprefs        "Sto installando ModeProPrefs...")
  312.     
  313.     ( set copycat_prompt   "ModePro mette a disposizione una interfaccia localizzata.\nChe linguaggi vuoi installare?\nAlcuni cataloghi non sono completi.")
  314.     
  315.     ( set usmodify_prompt     "Le opzioni che hai scelto richiedono la modifica del file s:user-startup." )
  316.     
  317.     
  318. ) )
  319.  
  320. ;-------- BEGIN ----------
  321.  
  322. ; Fix these strings
  323. (set path_modepro_prompt  (path_modepro_prompt path_commodities))
  324. (set path_mpprefs_prompt  (path_mpprefs_prompt path_prefs))
  325.  
  326.  
  327. (if (exists file_screentab)
  328.   (
  329.     (set startup_prompt (cat startup_prompt startup_screentab))
  330.     (set startup_help   (cat startup_help startup_screentab))
  331.   )
  332. )
  333.  
  334.  
  335. ;### Check to see if a previous version is installed ###
  336.  
  337. (if (exists (tackon path_commodities file_modepro_src))
  338.   (
  339.     (set path_mp_location path_commodities)
  340.     (set found_install 1)
  341.   )
  342.  
  343.   (if (exists (tackon path_wbstartup file_modepro_src))
  344.     (
  345.       (set path_mp_location path_wbstartup)
  346.       (set found_install 1)
  347.     )
  348.   )
  349. )
  350.  
  351. (if (exists (tackon path_prefs file_modeproprefs_src))
  352.   (
  353.     (set path_mpprefs_location path_prefs)
  354.     (set found_install (+ found_install 1))
  355.   )
  356. )
  357.  
  358. (set quickupdate 1)
  359.  
  360. (debug path_mp_location path_mpprefs_location)
  361.  
  362. (if (= found_install 2)
  363.   (
  364.     (set quickupdate (askchoice (prompt quickupdate_prompt) 
  365.                                 (help quickupdate_help)
  366.                                 (default 0) 
  367.                                 (choices quickupdate_choice0 quickupdate_choice1) 
  368. ) ) )                )
  369.  
  370. (if (= quickupdate 1)
  371.   ( ;### Full update ###
  372.     (set startup_method (askchoice (prompt  startup_prompt)
  373.                                    (help    startup_help)
  374.                                    (choices startup_choice0 startup_choice1 startup_choice2)
  375.                                    (default 2)
  376.     )                   )
  377.     
  378.     
  379.     (if (= startup_method 2) 
  380.       (
  381.         ( set path_delmodepro path_commodities)
  382.         ( set path_modepro    path_wbstartup)
  383.       )
  384.       (
  385.         ( set path_delmodepro path_wbstartup)
  386.         ( set path_modepro (askdir (prompt  path_modepro_prompt)
  387.                                    (help    path_modepro_help)
  388.                                    (default path_commodities)
  389.         )                  )
  390.       )
  391.     )
  392.     
  393.     ( set path_mpprefs (askdir (prompt  path_mpprefs_prompt)
  394.                                (help    path_mpprefs_help)
  395.                                (default path_prefs)
  396.     )                  )
  397.     
  398.     
  399.     
  400.     ( set ModeProPrefsCommand (tackon ( path_mpprefs) 
  401.                                        ( "ModeProPrefs") 
  402.                               ) 
  403.     )
  404.     
  405.     ( set tt_cxpopkey ( askstring (prompt tt_cxpopkey_prompt)
  406.                                   (help tt_cxhelp)
  407.                                   (default "lamiga p")
  408.                    
  409.     )                 )
  410.     
  411.     ( set tt_cxpri ("%ld" (asknumber (prompt tt_cxpri_prompt)
  412.                                      (help tt_cxhelp)
  413.                                      (default 5)
  414.     )              )      ) 
  415.     
  416.     ( set tt_cxpopup (askchoice (prompt tt_cxpopup_prompt) 
  417.                                 (help tt_cxhelp)
  418.                                 (default 0) 
  419.                                 (choices No Yes) 
  420.     )             )
  421.     
  422.     ( set tt_wbpromote (askchoice (prompt tt_wbpromote_prompt) 
  423.                                 (help tt_wbpromote_help)
  424.                                 (default 0) 
  425.                                 (choices No Yes) 
  426.     )             )
  427.     
  428.     ( set tt_wbpromotable (select tt_wbpromote "(WBPROMOTABLE)" "WBPROMOTABLE") )
  429.     
  430.     
  431.     ;**** ASK WHICH CATALOGS TO COPY ****
  432.     (set  copy_catalogs (askoptions  (prompt  copycat_prompt)
  433.                  (help    copycat_help)
  434.                  (choices catalog_1 catalog_2 catalog_3 catalog_4 catalog_5 catalog_6 catalog_7 catalog_8 catalog_9 catalog_10 catalog_11 catalog_12 catalog_13 catalog_14 catalog_15)
  435.                  (default 0)
  436.     )                   )
  437.     
  438.     ;**** COPY CATALOGS ****
  439.     (set optnumber 0)
  440.     ( while ( < optnumber catalogs )
  441.       (set flag (BITAND (shiftright copy_catalogs optnumber) 1) )
  442.       (if flag
  443.         (
  444.           (set cat_name  ( select optnumber catalog_1 catalog_2 catalog_3 catalog_4 catalog_5 catalog_6 catalog_7 catalog_8 catalog_9 catalog_10 catalog_11 catalog_12 catalog_13 catalog_14 catalog_15) )
  445.           (set srcpath (cat "catalogs/" cat_name ) )
  446.           (set dstpath (cat "locale:catalogs/" cat_name ) )
  447.           (makedir dstpath)
  448.           (copyfiles  (prompt (installing_catalogs cat_name)) (help (installing_catalogs cat_name)) (source srcpath) (dest dstpath) (all))
  449.         )
  450.       )
  451.       (set optnumber (+ optnumber 1) )
  452.     )
  453.     
  454.     
  455.     ;(copyfiles (prompt  copycat_prompt)
  456.     ;           (help    copycat_help)
  457.     ;           (source  "catalogs/")
  458.     ;           (dest    "locale:catalogs/")
  459.     ;           (infos)
  460.     ;           (confirm)
  461.     ;           (all)
  462.     ;)
  463.     
  464.     ;**** DELETE THE ANY EXTRA COPY OF MODEPRO ****
  465.     
  466.     (set oldmodepro_file ( tackon (path_delmodepro) 
  467.                          ("ModePro")
  468.     )          )
  469.     
  470.     (if (exists oldmodepro_file)
  471.       (
  472.         (if (askchoice (prompt  (cat oldmodepro_prompt "\n" oldmodepro_file)) 
  473.                        (help    oldmodepro_help) 
  474.                        (default 1) 
  475.                        (choices No Yes) 
  476.             )
  477.           (
  478.             (delete oldmodepro_file (prompt oldmodepro_deleting))
  479.             (delete (cat (oldmodepro_file) (".info") ) (prompt oldmodepro_deleting) )
  480.           )
  481.         ) 
  482.       )
  483.     )
  484.     
  485.     ;**** SET THE TOOLTYPES ****
  486.     
  487.     (tooltype (dest file_modepro_src)
  488.               (settooltype "CX_POPKEY"    tt_cxpopkey)
  489.               (settooltype "CX_POPUP"     (select tt_cxpopup No Yes) )
  490.               (settooltype "CX_PRIORITY"  tt_cxpri )
  491.               (settooltype "PREFSCOMMAND" ModeProPrefsCommand)
  492.               (settooltype tt_wbpromotable "")
  493.     )
  494.     
  495.     
  496.     ;**** COPY FILES ****
  497.         
  498.     (copyfiles (prompt installing_modepro)
  499.                (help   installing_modepro)
  500.                (source file_modepro_src)
  501.                (infos)
  502.                (dest path_modepro)
  503.     )
  504.     
  505.     (set @default-dest path_modepro)
  506.     
  507.     (copyfiles (prompt installing_modeproprefs)
  508.                (help   installing_modeproprefs)
  509.                (source file_modeproprefs_src)
  510.                (infos)
  511.                (dest path_mpprefs)
  512.     )
  513.     
  514.     
  515.     
  516.     
  517.     ;**** PROMPT TO MODIFY THE U-S FILE ****
  518.     (if (= startup_method 1)
  519.         ( 
  520.             (startup "ModePro"
  521.                      (prompt  usmodify_prompt )
  522.                      (help    usmodify_help )
  523.                      (command (cat "  If EXISTS "      (tackon path_modepro "ModePro")
  524.                                    "\n    Run <>NIL: " (tackon path_modepro "ModePro")
  525.                                    "\n  ENDIF\n" ) )
  526.             )
  527.         )
  528.         (
  529.            (startup "ModePro"
  530.                      (prompt  usmodify_prompt )
  531.                      (help    usmodify_help )
  532.                      (command ";Don't run ModePro from User-Startup")
  533.       
  534.             )
  535.         )
  536.     )
  537.   )   
  538.   ; else quick update 
  539.   (
  540.     (copyfiles (prompt installing_modepro)
  541.                (help   installing_modepro)
  542.                (source file_modepro_src)
  543.                (dest path_mp_location)
  544.     )
  545.     
  546.     (copyfiles (prompt installing_modeproprefs)
  547.                (help   installing_modeproprefs)
  548.                (source file_modeproprefs_src)
  549.                (dest path_mpprefs_location)
  550.     )
  551.      
  552.   )
  553. )
  554.  
  555.